home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / PostPostDisk7_94.AMOS / PostPostDisk7_94.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1996-02-05  |  10.1 KB  |  298 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Post-Postdisk 1.7.94       *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. 'Write Cli Chr$(10)
  9. 'Amos To Back  
  10. 'T$="Hoffentlich gehts jetzt..."+Chr$(10)
  11. 'For A=1 To Len(T$)
  12. '  Wait 5
  13. '  Write Cli Mid$(T$,A,1)
  14. 'Next  
  15. 'Wait 50 
  16. 'Amos To Front 
  17. Hide On 
  18. Dim T$(7)
  19. Global T$()
  20. 'Load Iff "dh2:dpaint/Multifonts/16x64x04-Narrow",0
  21. 'For A=0 To 58 
  22. '  Get Bob A+32,(A mod 20)*16,(A/20)*64 To(A mod 20)*16+16,(A/20)*64+64
  23. 'Next  
  24. FIRST
  25. SECOND
  26. THIRD
  27. FOURTH
  28. Procedure FIRST
  29. '  If Start(3)>$200000 Then  
  30.    Extension_8_00A0 3 : Extension_8_0FF2 3
  31.    Extension_8_10F2 0
  32.    Extension_8_108E 3
  33.   Screen Open 0,352,288,2,0
  34.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  35.   Screen Display 0,112,$20,352,288
  36.   Double Buffer 
  37.   Autoback 0
  38.   Palette 0,$FFF
  39.   W=0 : Z=0
  40.   Repeat 
  41.      Extension_8_121C 0,0
  42.     Add W,4
  43.     If Z<256 Then Add Z,2
  44.     SX= Extension_8_1114(W,Z) : SY= Extension_8_1106(W,Z)
  45.      Extension_8_1030 176+SX,144+SY To 176-SY,144+SX,1,-1
  46.      Extension_8_1030 176-SY,144+SX To 176-SX,144-SY,1,-1
  47.      Extension_8_1030 176-SX,144-SY To 176+SY,144-SX,1,-1
  48.      Extension_8_1030 176+SY,144-SX To 176+SX,144+SY,1,-1
  49.      Extension_8_1042 0,0
  50.     Screen Swap 
  51.     Wait Vbl 
  52.   'Until W=16
  53.   Until W=640
  54.   Colour Back $FFF : View 
  55.   Screen Close 0
  56. End Proc
  57. Procedure SECOND
  58.   Screen Open 0,320,256,2,0
  59.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  60.   Palette $FFF,$FFF
  61.    Extension_8_1204 10
  62.   T$(0)="Post-Postdisk"
  63.   T$(1)="Juni'94"
  64.   T$(2)="Fuer"
  65.   T$(3)="Markus"
  66.   T$(4)="1"
  67.   T$(5)="2"
  68.   T$(6)="3"
  69.   T$(7)="GO"
  70.   Text 160-Text Length(T$(7))/2,132,T$(7)
  71.   P= Extension_8_0CF2(0,0,128,104 To 192,160)
  72.    Extension_8_0D24 15,P+1
  73.    Extension_8_0D2E 0,0,128,104 To 192,160,15,0
  74.    Extension_8_0D4E 14,P
  75.    Extension_8_0D66 
  76.    Extension_8_0DB8 0,1
  77.    Extension_8_0D8A 0,8
  78.    Extension_8_0F2A -1
  79.    Extension_8_0E62 -1
  80.    Extension_8_0DA4 
  81.    Extension_8_121C 0,0
  82.   Wait Vbl 
  83.   Palette $FFF,0
  84.   For A=0 To 7
  85.     X=32 : Y=16
  86.     Repeat 
  87.       Wait Vbl 
  88.       Add X,-4,0 To 32
  89.       Add Y,-2,0 To 16
  90.       Screen Copy 0,64,80,160-X,128-Y To 0,63,79
  91.       Screen Copy 0,160+X,80,256,128-Y To 0,161+X,79
  92.       Screen Copy 0,64,128+Y,160-X,176 To 0,63,129+Y
  93.       Screen Copy 0,160+X,128+Y,256,176 To 0,161+X,129+Y
  94.     Until Extension_8_10B6 
  95.      Extension_8_121C 0,0
  96.     Text 160-Text Length(T$(A))/2,132,T$(A)
  97.   Next 
  98.   Double Buffer 
  99.   Repeat 
  100.     Screen Swap 
  101.     Wait Vbl 
  102.      Extension_8_0DEC 
  103.   Until Extension_8_0F40 =0
  104.   Screen Close 0
  105. End Proc
  106. Procedure THIRD
  107.   Screen Open 0,320,256,8,0
  108.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  109.   Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  110.   Wait Vbl 
  111.   Fade 3,0,$444,$444,$888,$444,$888,$888,$FFF
  112.   W=0 : BP=0
  113.   EFF=1 : COU=0
  114.   Do 
  115.     Inc COU
  116.     Add BP,1,0 To 2
  117.      Extension_8_121C 0,BP
  118.     P= Extension_8_10B6 
  119.     If P=2
  120.       Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  121.       Fade 3,0,$884,$884,$CC8,$884,$CC8,$CC8,$FFF
  122.       EFF=2
  123.     End If 
  124.     If P=3
  125.       Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  126.       Fade 3,0,$844,$844,$C88,$844,$C88,$C88,$FFF
  127.       EFF=3
  128.     End If 
  129.     If P=4
  130.       Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  131.       Fade 3,0,$484,$484,$8C8,$484,$8C8,$8C8,$FFF
  132.       EFF=4
  133.     End If 
  134.     If P=5
  135.       Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  136.       Fade 3,0,$448,$448,$88C,$448,$88C,$88C,$FFF
  137.       EFF=5
  138.     End If 
  139.     If P=6
  140.       Palette $FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  141.       Fade 3,0,$848,$848,$C8C,$848,$C8C,$C8C,$FFF
  142.       EFF=6
  143.     End If 
  144.     If P=7 Then Fade 3
  145.     Exit If P=$FF
  146.     If EFF=1
  147.       Add W,16
  148.       Add Z,2 : If Z>31 : Z=0 : Add W,-64 : End If 
  149.       ZZ=Z+32 : WW=W
  150.       For A=0 To 5
  151.         SX= Extension_8_1114(WW,ZZ) : SY= Extension_8_1106(WW,ZZ)
  152.         Add ZZ,32 : Add WW,64
  153.          Extension_8_1030 160+SX,128+SY To 160-SY,128+SX,7, Extension_8_04F8(BP)
  154.          Extension_8_1030 160-SY,128+SX To 160-SX,128-SY,7, Extension_8_04F8(BP)
  155.          Extension_8_1030 160-SX,128-SY To 160+SY,128-SX,7, Extension_8_04F8(BP)
  156.          Extension_8_1030 160+SY,128-SX To 160+SX,128+SY,7, Extension_8_04F8(BP)
  157.       Next 
  158.     End If 
  159.     If EFF=2
  160.       Add W,16
  161.       Add Z,2 : If Z>31 : Z=0 : Add W,-32 : End If 
  162.       ZZ=Z+32 : WW=W
  163.       For A=0 To 5
  164.         SX1= Extension_8_1114(WW,ZZ)+160 : SY1= Extension_8_1106(WW,ZZ)+128
  165.         SX2= Extension_8_1114(WW+341,ZZ)+160 : SY2= Extension_8_1106(WW+341,ZZ)+128
  166.         SX3= Extension_8_1114(WW+682,ZZ)+160 : SY3= Extension_8_1106(WW+682,ZZ)+128
  167.         Add ZZ,32 : Add WW,32
  168.          Extension_8_1030 SX1,SY1 To SX2,SY2,7, Extension_8_04F8(BP)
  169.          Extension_8_1030 SX2,SY2 To SX3,SY3,7, Extension_8_04F8(BP)
  170.          Extension_8_1030 SX3,SY3 To SX1,SY1,7, Extension_8_04F8(BP)
  171.       Next 
  172.     End If 
  173.     If EFF>2
  174.       Add W,12 : ZZ=24 : WW=W
  175.     End If 
  176.     If EFF=3
  177.       For A=0 To 5
  178.         SX1= Extension_8_1114(WW,ZZ)+160 : SY1= Extension_8_1106(WW,ZZ)+128
  179.         SX2= Extension_8_1106(WW+341,ZZ)+160 : SY2= Extension_8_1114(WW+341,ZZ)+128
  180.         SX3= Extension_8_1114(WW+682,ZZ)+160 : SY3= Extension_8_1106(WW+682,ZZ)+128
  181.         Add ZZ,24 : Add WW,128
  182.          Extension_8_1030 SX1,SY1 To SX2,SY2,7, Extension_8_04F8(BP)
  183.          Extension_8_1030 SX2,SY2 To SX3,SY3,7, Extension_8_04F8(BP)
  184.          Extension_8_1030 SX3,SY3 To SX1,SY1,7, Extension_8_04F8(BP)
  185.       Next 
  186.     End If 
  187.     If EFF=4
  188.       For A=0 To 5
  189.         SX1= Extension_8_1106(WW,ZZ)+160 : SY1= Extension_8_1106(WW,ZZ)+128
  190.         SX2= Extension_8_1106(WW+341,ZZ)+160 : SY2= Extension_8_1114(WW+341,ZZ)+128
  191.         SX3= Extension_8_1114(WW+682,ZZ)+160 : SY3= Extension_8_1114(WW+682,ZZ)+128
  192.         Add ZZ,24 : Add WW,64
  193.          Extension_8_1030 SX1,SY1 To SX2,SY2,7, Extension_8_04F8(BP)
  194.          Extension_8_1030 SX2,SY2 To SX3,SY3,7, Extension_8_04F8(BP)
  195.          Extension_8_1030 SX3,SY3 To SX1,SY1,7, Extension_8_04F8(BP)
  196.       Next 
  197.     End If 
  198.     If EFF=5
  199.       For A=0 To 5
  200.         SX1= Extension_8_1114(WW,ZZ)+160 : SY1= Extension_8_1106(WW,ZZ)+128
  201.         SX2= Extension_8_1114(WW+341,ZZ)+160 : SY2= Extension_8_1114(WW+341,ZZ)+128
  202.         SX3= Extension_8_1106(WW+682,ZZ)+160 : SY3= Extension_8_1114(WW+682,ZZ)+128
  203.         Add ZZ,24 : Add WW,48
  204.          Extension_8_1030 SX1,SY1 To SX2,SY2,7, Extension_8_04F8(BP)
  205.          Extension_8_1030 SX2,SY2 To SX3,SY3,7, Extension_8_04F8(BP)
  206.          Extension_8_1030 SX3,SY3 To SX1,SY1,7, Extension_8_04F8(BP)
  207.       Next 
  208.     End If 
  209.     If EFF=6
  210.       For A=0 To 6
  211.         SX1= Extension_8_1106(WW,ZZ)+160 : SY1= Extension_8_1114(WW,ZZ)+128
  212.         SX2= Extension_8_1114(WW+341,ZZ)+160 : SY2= Extension_8_1106(WW+341,ZZ)+128
  213.         SX3= Extension_8_1114(WW+682,ZZ)+160 : SY3= Extension_8_1106(WW+682,ZZ)+128
  214.         Add ZZ,24 : Add WW,-128
  215.          Extension_8_1030 SX1,SY1 To SX2,SY2,7, Extension_8_04F8(BP)
  216.          Extension_8_1030 SX2,SY2 To SX3,SY3,7, Extension_8_04F8(BP)
  217.          Extension_8_1030 SX3,SY3 To SX1,SY1,7, Extension_8_04F8(BP)
  218.       Next 
  219.     End If 
  220.     Colour Back Colour(0) : View 
  221.     Wait Vbl 
  222.   Loop 
  223.   Screen Close 0
  224.    Extension_8_10A8 
  225.    Extension_8_00B4 3 : Extension_8_0FCE 3
  226. End Proc
  227. Procedure FOURTH
  228. '  If Start(4)>$200000 Then  
  229.    Extension_8_00A0 4 : Extension_8_0FF2 4
  230.    Extension_8_10F2 0
  231.    Extension_8_108E 4
  232.   Unpack 9 To 0
  233.   For Y=4 To 288 Step 4
  234.     Screen Display 0,112,176-Y/2,352,Y
  235.     Wait Vbl 
  236.   Next 
  237.   Colour 17,$AAF : Colour 18,$55F : Colour 19,$11F
  238.   Colour 21,$AFF : Colour 22,$5FF : Colour 23,$1FF
  239.   Colour 25,$AFA : Colour 26,$5F5 : Colour 27,$1F1
  240.   Colour 29,$FAA : Colour 30,$F55 : Colour 31,$F11
  241.   S$="HI MARKUS... ES TUT MIR LEID, DASS DIE LETZTE VERSION NET GE"
  242.   S$=S$+"FUNZT HAT... ZUM GLUECK GEHT JA DIESE HIER, SONST KOENNTEST "
  243.   S$=S$+"DU DAS JETZT GARNICHT LESEN, GELLE?    IST ER EIGENTLICH ABGE"
  244.   S$=S$+"KACKT, ODER IST NIX WEITER PASSIERT?   NAJA, DER PACKER BRAUCHT "
  245.   S$=S$+"SAU LANGE ZUM ENTPACKEN, WARST WOHL EIN BISSERL ZU UNGEDULDIG, WA?"
  246.   S$=S$+"      ZU DEINER LETZTEN POSTDISK:  "
  247.   S$=S$+"HEHEHE... GOILER TUNE... GRAUSAM ABER GOIL... ICH HAB SELTEN "
  248.   S$=S$+"SO GELACHT... WAHRSCHEINLICH MEHR ALS DU!!! HEHEHEHE   "
  249.   S$=S$+"JUSERTREFFEN: KOINE AHNUNG, FRAG' DEN CHARLIE...   "
  250.   S$=S$+"WIESO BIST DU SO GEMEIN??? WOHER SOLL ICH WISSEN, WAS DIESER SMILY"
  251.   S$=S$+" BEDEUTET? SCHNIIIIEEEF...     "
  252.   S$=S$+"       NAJA... HIER KOMMT NUN ALSO DER ALTE TEXT...       "
  253.   S$=S$+"HI JAGUAR... VIELLEICHT IST ES EIN BISSERL EINFALLSLOS, ABER"
  254.   S$=S$+" DAS IST DIE POST-POSTDISK SPRICH NACHPOSTDISK ZU MEINER "
  255.   S$=S$+"VOM MAI...    UND JA ICH HAB DEINE BEIDEN VORPOSTDISKS BE"
  256.   S$=S$+"KOMMEN... ALLERDINGS HATTE ICH EIN PAAR PROBS BEIM STARTEN, "
  257.   S$=S$+"DA DEIN KOMMENTAR DIREKT VOR DIE DATEI GEKLEBT WURDE...   ABER "
  258.   S$=S$+"BITTE PACK DIE SACHEN, WEIL JEDENTAG 150 KB ZIEHEN IST "
  259.   S$=S$+"NICHT SOOO TOLL... DAFUER DARFST DU JETZT JEDEN TAG 300 KB "
  260.   S$=S$+"LEECHEN, HEHEHE....    LANGSAM GEHEN MIR ABER DIE IDEEN AUS, WAS "
  261.   S$=S$+"ICH NOCH SO AN EFFEKTEN REINHAUN KANN...       "
  262.   S$=S$+"NAJA... MAL SEHN...    DEINE VORPOSTDISK FAND ICH ECHT...HMMM..."
  263.   S$=S$+"ECHT LUSTIG... HEHE... UND ICH FREU MICH SCHON AUF MORGEN...      "
  264.   S$=S$+"UND BESONDERS FREU ICH MICH AUF DEN 10-07-94... NUR NOCH 8 TAGE IN"
  265.   S$=S$+" ETWA!!!       NA GUT.... DANN SAG ICH MAL WIEDER CIAO!    "
  266.   S$=S$+"PS: WENN DU POSTDISKS VORMULIERST, TU ICH MEINE NACHMULIERN!!!"
  267.   S$=S$+"            ........ . . . .    UND NOCHMALS "
  268.   A$="C: L R0=R2; L R1=0; L R2=0; "
  269.   A$=A$+"A: I R2<>0 J C; L X=X-4; L Y=R0/16; L R0=R0+R1; L R1=R1+2; "
  270.   A$=A$+"I R0>4095 J B; P; J A; B: L R0=4095; L R1=1-R1*2/3; P; J A; "
  271.   For A=0 To 6
  272.     Channel A To Sprite A
  273.     Amal A,A$
  274.   Next 
  275.   SP=0 : TIM=0 : BP=1 : YP=0
  276.   FAD=0
  277.   Repeat 
  278.     If FAD Then Inc FAD
  279.     If FAD=128 Then Amal Off : Sprite Off 
  280.     If FAD>128 Then Extension_8_0FBA 0
  281.     If FAD=0 and Inkey$<>"" Then FAD=1
  282.     Wait Vbl 
  283.     Inc TIM
  284.     If TIM>12 and FAD=0
  285.       TIM=0
  286.       B=Asc(Mid$(S$,BP,1))
  287.       Add BP,1,1 To Len(S$)
  288.       Sprite SP,464,0,B
  289.       Amal On SP
  290.       Amreg(SP,2)= Extension_8_1106(YP,1024)+$800
  291.       Add SP,1,0 To 6
  292.       Add YP,32
  293.     End If 
  294.   Until FAD=144
  295.   Screen Close 0
  296.    Extension_8_10A8 
  297.    Extension_8_00B4 4 : Extension_8_0FCE 4
  298. End Proc